﻿Public Class TMyCollation
    Implements System.IDisposable

    Private Const YES_VALUE As String = "Yes"
    Friend _CollationName As String
    Friend _CharacterSetName As String
    Friend _ID As Integer
    Friend _IsDefault As String
    Friend _IsCompiled As String
    Friend _Sortlen As Integer
    Friend _DefaultCollation As Boolean
    Public ReadOnly Property DefaultCollation() As Boolean
        Get
            Return _DefaultCollation
        End Get
    End Property
    Public ReadOnly Property CollationName() As String
        Get
            Return _CollationName
        End Get
    End Property
    Public ReadOnly Property CharacterSetName() As String
        Get
            Return _CharacterSetName
        End Get
    End Property
    Public ReadOnly Property ID() As Integer
        Get
            Return _ID
        End Get
    End Property
    Public ReadOnly Property IsDefault() As Boolean
        Get
            Return _IsDefault.Equals(YES_VALUE)
        End Get
    End Property
    Public ReadOnly Property IsCompiled() As Boolean
        Get
            Return _IsCompiled.Equals(YES_VALUE)
        End Get
    End Property
    Public ReadOnly Property SortLen() As Integer
        Get
            Return _Sortlen
        End Get
    End Property

    Private disposedValue As Boolean = False        ' 重複する呼び出しを検出するには

    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                ' TODO: 他の状態を解放します (マネージ オブジェクト)。
            End If

            ' TODO: ユーザー独自の状態を解放します (アンマネージ オブジェクト)。
            ' TODO: 大きなフィールドを null に設定します。
        End If
        Me.disposedValue = True
    End Sub

#Region " IDisposable Support "
    ' このコードは、破棄可能なパターンを正しく実装できるように Visual Basic によって追加されました。
    Public Sub Dispose() Implements IDisposable.Dispose
        ' このコードを変更しないでください。クリーンアップ コードを上の Dispose(ByVal disposing As Boolean) に記述します。
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class
